home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / Virus Warning.sit / Virus Warning / background_2603.xml next >
Extensible Markup Language  |  1995-11-20  |  21KB  |  466 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2603</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3081.css" />
  10.     <part>
  11.         <id>1</id>
  12.         <type>field</type>
  13.         <visible> <true /> </visible>
  14.         <dontWrap> <false /> </dontWrap>
  15.         <dontSearch> <false /> </dontSearch>
  16.         <sharedText> <true /> </sharedText>
  17.         <fixedLineHeight> <false /> </fixedLineHeight>
  18.         <autoTab> <false /> </autoTab>
  19.         <lockText> <false /> </lockText>
  20.         <rect>
  21.             <left>22</left>
  22.             <top>0</top>
  23.             <right>416</right>
  24.             <bottom>59</bottom>
  25.         </rect>
  26.         <style>transparent</style>
  27.         <autoSelect> <false /> </autoSelect>
  28.         <showLines> <false /> </showLines>
  29.         <wideMargins> <false /> </wideMargins>
  30.         <multipleLines> <false /> </multipleLines>
  31.         <reservedFamily> 0 </reservedFamily>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>0</icon>
  34.         <textAlign>right</textAlign>
  35.         <font>Avant Garde</font>
  36.         <textSize>50</textSize>
  37.         <textStyle>bold</textStyle>
  38.         <textHeight>66</textHeight>
  39.         <name>Titel</name>
  40.         <script>on mouseuppicture "Virus Warning Infos","Resource","Dialog"wait until the mouseClickclose window "Virus Warning Infos"end mouseup</script>
  41.     </part>
  42.     <part>
  43.         <id>2</id>
  44.         <type>field</type>
  45.         <visible> <true /> </visible>
  46.         <dontWrap> <false /> </dontWrap>
  47.         <dontSearch> <false /> </dontSearch>
  48.         <sharedText> <false /> </sharedText>
  49.         <fixedLineHeight> <false /> </fixedLineHeight>
  50.         <autoTab> <false /> </autoTab>
  51.         <lockText> <true /> </lockText>
  52.         <rect>
  53.             <left>5</left>
  54.             <top>68</top>
  55.             <right>411</right>
  56.             <bottom>215</bottom>
  57.         </rect>
  58.         <style>scrolling</style>
  59.         <autoSelect> <false /> </autoSelect>
  60.         <showLines> <false /> </showLines>
  61.         <wideMargins> <false /> </wideMargins>
  62.         <multipleLines> <false /> </multipleLines>
  63.         <reservedFamily> 0 </reservedFamily>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>left</textAlign>
  67.         <font>Geneva</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <textHeight>16</textHeight>
  71.         <name>Infos</name>
  72.         <script>on mouseupif the shiftkey is down thenset locktext of me to not locktext of meend ifend mouseupon mouseenterInflate C,S,"Here you'll see the text of the chapter you activated using the buttons below."end mouseenter</script>
  73.     </part>
  74.     <part>
  75.         <id>3</id>
  76.         <type>button</type>
  77.         <visible> <true /> </visible>
  78.         <reserved5> 0 </reserved5>
  79.         <reserved4> 0 </reserved4>
  80.         <reserved3> 0 </reserved3>
  81.         <reserved2> 0 </reserved2>
  82.         <reserved1> 0 </reserved1>
  83.         <enabled> <true /> </enabled>
  84.         <rect>
  85.             <left>5</left>
  86.             <top>219</top>
  87.             <right>53</right>
  88.             <bottom>234</bottom>
  89.         </rect>
  90.         <style>rectangle</style>
  91.         <showName> <true /> </showName>
  92.         <highlight> <true /> </highlight>
  93.         <autoHighlight> <false /> </autoHighlight>
  94.         <sharedHighlight> <true /> </sharedHighlight>
  95.         <family>0</family>
  96.         <titleWidth>0</titleWidth>
  97.         <icon>0</icon>
  98.         <textAlign>center</textAlign>
  99.         <font>Geneva</font>
  100.         <textSize>9</textSize>
  101.         <textStyle>bold</textStyle>
  102.         <name>Infos</name>
  103.         <script>on mouseUplock screengo cd (short name of me)end mouseUpon mouseenterInflate C,S,"Shows some information about this stack."end mouseenter</script>
  104.     </part>
  105.     <part>
  106.         <id>4</id>
  107.         <type>button</type>
  108.         <visible> <true /> </visible>
  109.         <reserved5> 0 </reserved5>
  110.         <reserved4> 0 </reserved4>
  111.         <reserved3> 0 </reserved3>
  112.         <reserved2> 0 </reserved2>
  113.         <reserved1> 0 </reserved1>
  114.         <enabled> <true /> </enabled>
  115.         <rect>
  116.             <left>185</left>
  117.             <top>219</top>
  118.             <right>274</right>
  119.             <bottom>234</bottom>
  120.         </rect>
  121.         <style>rectangle</style>
  122.         <showName> <true /> </showName>
  123.         <highlight> <false /> </highlight>
  124.         <autoHighlight> <false /> </autoHighlight>
  125.         <sharedHighlight> <true /> </sharedHighlight>
  126.         <family>0</family>
  127.         <titleWidth>0</titleWidth>
  128.         <icon>0</icon>
  129.         <textAlign>center</textAlign>
  130.         <font>Geneva</font>
  131.         <textSize>9</textSize>
  132.         <textStyle>bold</textStyle>
  133.         <name>Virus Script</name>
  134.         <script>on mouseUplock screengo cd (short name of me)end mouseUpon mouseenterInflate C,S,"Here you'll see, how the virus script looks like (Don't panic, here it's harmless!)."end mouseenter</script>
  135.     </part>
  136.     <part>
  137.         <id>5</id>
  138.         <type>button</type>
  139.         <visible> <true /> </visible>
  140.         <reserved5> 0 </reserved5>
  141.         <reserved4> 0 </reserved4>
  142.         <reserved3> 0 </reserved3>
  143.         <reserved2> 0 </reserved2>
  144.         <reserved1> 0 </reserved1>
  145.         <enabled> <true /> </enabled>
  146.         <rect>
  147.             <left>279</left>
  148.             <top>219</top>
  149.             <right>411</right>
  150.             <bottom>234</bottom>
  151.         </rect>
  152.         <style>rectangle</style>
  153.         <showName> <true /> </showName>
  154.         <highlight> <false /> </highlight>
  155.         <autoHighlight> <false /> </autoHighlight>
  156.         <sharedHighlight> <true /> </sharedHighlight>
  157.         <family>0</family>
  158.         <titleWidth>0</titleWidth>
  159.         <icon>0</icon>
  160.         <textAlign>center</textAlign>
  161.         <font>Geneva</font>
  162.         <textSize>9</textSize>
  163.         <textStyle>bold</textStyle>
  164.         <name>Virus Warning! Script</name>
  165.         <script>on mouseUplock screengo cd (short name of me)end mouseUpon mouseenterInflate C,S,"Here you'll see the AntiVirus script."end mouseenter</script>
  166.     </part>
  167.     <part>
  168.         <id>6</id>
  169.         <type>field</type>
  170.         <visible> <true /> </visible>
  171.         <dontWrap> <false /> </dontWrap>
  172.         <dontSearch> <false /> </dontSearch>
  173.         <sharedText> <true /> </sharedText>
  174.         <fixedLineHeight> <true /> </fixedLineHeight>
  175.         <autoTab> <false /> </autoTab>
  176.         <lockText> <false /> </lockText>
  177.         <rect>
  178.             <left>97</left>
  179.             <top>45</top>
  180.             <right>334</right>
  181.             <bottom>68</bottom>
  182.         </rect>
  183.         <style>transparent</style>
  184.         <autoSelect> <false /> </autoSelect>
  185.         <showLines> <false /> </showLines>
  186.         <wideMargins> <false /> </wideMargins>
  187.         <multipleLines> <false /> </multipleLines>
  188.         <reservedFamily> 0 </reservedFamily>
  189.         <titleWidth>0</titleWidth>
  190.         <icon>0</icon>
  191.         <textAlign>center</textAlign>
  192.         <font>Geneva</font>
  193.         <textSize>9</textSize>
  194.         <textStyle>plain</textStyle>
  195.         <textHeight>10</textHeight>
  196.         <name>ﾂｩ</name>
  197.         <script>on mouseenterInflate C,S,"Here my address again:" & return & return & ﾂｬ"     Matthias Kahlert" & return & "     Haidauer Straﾃ歹 79" & return & ﾂｬ"     93073 Neutraubling" & return & "     Germany"end mouseenter</script>
  198.     </part>
  199.     <part>
  200.         <id>7</id>
  201.         <type>button</type>
  202.         <visible> <true /> </visible>
  203.         <reserved5> 0 </reserved5>
  204.         <reserved4> 0 </reserved4>
  205.         <reserved3> 0 </reserved3>
  206.         <reserved2> 0 </reserved2>
  207.         <reserved1> 0 </reserved1>
  208.         <enabled> <true /> </enabled>
  209.         <rect>
  210.             <left>133</left>
  211.             <top>219</top>
  212.             <right>181</right>
  213.             <bottom>234</bottom>
  214.         </rect>
  215.         <style>rectangle</style>
  216.         <showName> <true /> </showName>
  217.         <highlight> <false /> </highlight>
  218.         <autoHighlight> <false /> </autoHighlight>
  219.         <sharedHighlight> <true /> </sharedHighlight>
  220.         <family>0</family>
  221.         <titleWidth>0</titleWidth>
  222.         <icon>0</icon>
  223.         <textAlign>center</textAlign>
  224.         <font>Geneva</font>
  225.         <textSize>9</textSize>
  226.         <textStyle>bold</textStyle>
  227.         <name>Help</name>
  228.         <script>on mouseUplock screengo cd (short name of me)end mouseUpon mouseenterInflate C,S,"Here you'll see some hints, what to do, if nothing isn't working."end mouseenter</script>
  229.     </part>
  230.     <part>
  231.         <id>8</id>
  232.         <type>button</type>
  233.         <visible> <true /> </visible>
  234.         <reserved5> 0 </reserved5>
  235.         <reserved4> 0 </reserved4>
  236.         <reserved3> 0 </reserved3>
  237.         <reserved2> 0 </reserved2>
  238.         <reserved1> 0 </reserved1>
  239.         <enabled> <true /> </enabled>
  240.         <rect>
  241.             <left>3</left>
  242.             <top>3</top>
  243.             <right>51</right>
  244.             <bottom>55</bottom>
  245.         </rect>
  246.         <style>shadow</style>
  247.         <showName> <true /> </showName>
  248.         <highlight> <false /> </highlight>
  249.         <autoHighlight> <true /> </autoHighlight>
  250.         <sharedHighlight> <true /> </sharedHighlight>
  251.         <family>0</family>
  252.         <titleWidth>0</titleWidth>
  253.         <icon>539</icon>
  254.         <textAlign>center</textAlign>
  255.         <font>Geneva</font>
  256.         <textSize>12</textSize>
  257.         <textStyle>bold</textStyle>
  258.         <name>Installer</name>
  259.         <script>on mouseUplock screenset cursor to busypush cdgo cd "Virus Warning! Script"put bg fld "Infos" into VirusScriptanswer "Do you wish to Install or Uninstall the AntiVirus script?" with "Cancel" or ﾂｬ"Uninstall" or "Install"if it = "Install" thenanswer file "In which stack?" of type "STAK"put it into Stapelif Stapel = empty then exit mouseUpgo stack Stapelput script of this stack into Programmif Programm contains "on merryxmas key" & return & ﾂｬ"  set lockscreen to true" thenrepeat 3play "Buzzer"end repeatanswer "Virus Warning!" & return & return & ﾂｬ"This stack is infected by the MerryXMas virus. Please disinfect it using the " & ﾂｬ"button 窶廛isinfect窶ｦ窶!"else if Programm contains "-> The Dummy Virus" thenrepeat 3play "Buzzer"end repeatAnswer "Virus Warning!" & return & return & ﾂｬ"In this stack the AntiVirus script is already installed!"elseput Programm & return & return & VirusScript into NeuesProgrammif length(NeuesProgramm) > 30000 thenrepeat 3play "Buzzer"end repeatAnswer "Virus Warning!" & return & return & ﾂｬ"The AntiVirus script cannot be installed, because the script is too long!"end ifset script of this stack to NeuesProgrammanswer "Virus Warning!" & return & return & ﾂｬ"The AntiVirus script has been installed!"end ifelse if it = "Uninstall" thenanswer file "Out of which stack?" of type "STAK"put it into Stapelif Stapel = empty then exit mouseUpgo stack Stapelput script of this stack into Programmif Programm contains "on merryxmas key" & return & ﾂｬ"  set lockscreen to true" thenrepeat 3play "Buzzer"end repeatanswer "Virus Warning!" & return & return & ﾂｬ"This stack is infected by the MerryXMas virus. Please disinfect it using the " & ﾂｬ"button 窶廛isinfect窶ｦ窶!"else if Programm contains VirusScript thenput offset(VirusScript,Programm) into Anfangput empty into char Anfang to (Anfang+length(VirusScript)-1) of Programmset script of this stack to ProgrammAnswer "Virus Warning!" & return & return & ﾂｬ"The AntiVirus script has been uninstalled!"elserepeat 3play "Buzzer"end repeatAnswer "Virus Warning!" & return & return & ﾂｬ"This stack doesn't contain the AntiVirus script!"end ifend ifpop cdend mouseUpon mouseenterInflate C,S,"This button helps you installing the AntiVirus script in any of your stacks."end mouseenter</script>
  260.     </part>
  261.     <part>
  262.         <id>9</id>
  263.         <type>button</type>
  264.         <visible> <true /> </visible>
  265.         <reserved5> 0 </reserved5>
  266.         <reserved4> 0 </reserved4>
  267.         <reserved3> 0 </reserved3>
  268.         <reserved2> 0 </reserved2>
  269.         <reserved1> 0 </reserved1>
  270.         <enabled> <true /> </enabled>
  271.         <rect>
  272.             <left>57</left>
  273.             <top>219</top>
  274.             <right>129</right>
  275.             <bottom>234</bottom>
  276.         </rect>
  277.         <style>rectangle</style>
  278.         <showName> <true /> </showName>
  279.         <highlight> <false /> </highlight>
  280.         <autoHighlight> <false /> </autoHighlight>
  281.         <sharedHighlight> <true /> </sharedHighlight>
  282.         <family>0</family>
  283.         <titleWidth>0</titleWidth>
  284.         <icon>0</icon>
  285.         <textAlign>center</textAlign>
  286.         <font>Geneva</font>
  287.         <textSize>9</textSize>
  288.         <textStyle>bold</textStyle>
  289.         <name>Installation</name>
  290.         <script>on mouseUplock screengo cd (short name of me)end mouseUpon mouseenterInflate C,S,"Shows some hints how to search/disinfect files and how to install the AntiVirus script."end mouseenter</script>
  291.     </part>
  292.     <part>
  293.         <id>10</id>
  294.         <type>button</type>
  295.         <visible> <true /> </visible>
  296.         <reserved5> 0 </reserved5>
  297.         <reserved4> 0 </reserved4>
  298.         <reserved3> 0 </reserved3>
  299.         <reserved2> 0 </reserved2>
  300.         <reserved1> 0 </reserved1>
  301.         <enabled> <true /> </enabled>
  302.         <rect>
  303.             <left>5</left>
  304.             <top>237</top>
  305.             <right>111</right>
  306.             <bottom>252</bottom>
  307.         </rect>
  308.         <style>rectangle</style>
  309.         <showName> <true /> </showName>
  310.         <highlight> <false /> </highlight>
  311.         <autoHighlight> <true /> </autoHighlight>
  312.         <sharedHighlight> <true /> </sharedHighlight>
  313.         <family>0</family>
  314.         <titleWidth>0</titleWidth>
  315.         <icon>0</icon>
  316.         <textAlign>center</textAlign>
  317.         <font>Geneva</font>
  318.         <textSize>9</textSize>
  319.         <textStyle>bold</textStyle>
  320.         <name>Search窶ｦ</name>
  321.         <script>on mouseUpVW_SearchDisinfect "Search"end mouseUpon mouseenterInflate C,S,"With this button you can search for the MerryXMas Virus."end mouseenter</script>
  322.     </part>
  323.     <part>
  324.         <id>11</id>
  325.         <type>button</type>
  326.         <visible> <true /> </visible>
  327.         <reserved5> 0 </reserved5>
  328.         <reserved4> 0 </reserved4>
  329.         <reserved3> 0 </reserved3>
  330.         <reserved2> 0 </reserved2>
  331.         <reserved1> 0 </reserved1>
  332.         <enabled> <true /> </enabled>
  333.         <rect>
  334.             <left>115</left>
  335.             <top>237</top>
  336.             <right>221</right>
  337.             <bottom>252</bottom>
  338.         </rect>
  339.         <style>rectangle</style>
  340.         <showName> <true /> </showName>
  341.         <highlight> <false /> </highlight>
  342.         <autoHighlight> <true /> </autoHighlight>
  343.         <sharedHighlight> <true /> </sharedHighlight>
  344.         <family>0</family>
  345.         <titleWidth>0</titleWidth>
  346.         <icon>0</icon>
  347.         <textAlign>center</textAlign>
  348.         <font>Geneva</font>
  349.         <textSize>9</textSize>
  350.         <textStyle>bold</textStyle>
  351.         <name>Disinfect窶ｦ</name>
  352.         <script>on mouseUpVW_SearchDisinfect "Disinfect"end mouseUpon mouseenterInflate C,S,"With this button you can disinfect your stacks."end mouseenter</script>
  353.     </part>
  354.     <part>
  355.         <id>12</id>
  356.         <type>field</type>
  357.         <visible> <false /> </visible>
  358.         <dontWrap> <false /> </dontWrap>
  359.         <dontSearch> <false /> </dontSearch>
  360.         <sharedText> <true /> </sharedText>
  361.         <fixedLineHeight> <false /> </fixedLineHeight>
  362.         <autoTab> <false /> </autoTab>
  363.         <lockText> <true /> </lockText>
  364.         <rect>
  365.             <left>7</left>
  366.             <top>70</top>
  367.             <right>393</right>
  368.             <bottom>213</bottom>
  369.         </rect>
  370.         <style>scrolling</style>
  371.         <autoSelect> <false /> </autoSelect>
  372.         <showLines> <false /> </showLines>
  373.         <wideMargins> <false /> </wideMargins>
  374.         <multipleLines> <false /> </multipleLines>
  375.         <reservedFamily> 0 </reservedFamily>
  376.         <titleWidth>0</titleWidth>
  377.         <icon>0</icon>
  378.         <textAlign>left</textAlign>
  379.         <font>Geneva</font>
  380.         <textSize>9</textSize>
  381.         <textStyle>plain</textStyle>
  382.         <textHeight>12</textHeight>
  383.         <name>Log</name>
  384.         <script>on mouseuphide meend mouseup</script>
  385.     </part>
  386.     <part>
  387.         <id>14</id>
  388.         <type>button</type>
  389.         <visible> <false /> </visible>
  390.         <reserved5> 0 </reserved5>
  391.         <reserved4> 0 </reserved4>
  392.         <reserved3> 0 </reserved3>
  393.         <reserved2> 0 </reserved2>
  394.         <reserved1> 0 </reserved1>
  395.         <enabled> <true /> </enabled>
  396.         <rect>
  397.             <left>225</left>
  398.             <top>237</top>
  399.             <right>411</right>
  400.             <bottom>252</bottom>
  401.         </rect>
  402.         <style>rectangle</style>
  403.         <showName> <false /> </showName>
  404.         <highlight> <false /> </highlight>
  405.         <autoHighlight> <false /> </autoHighlight>
  406.         <sharedHighlight> <true /> </sharedHighlight>
  407.         <family>0</family>
  408.         <titleWidth>0</titleWidth>
  409.         <icon>0</icon>
  410.         <textAlign>center</textAlign>
  411.         <font>Chicago</font>
  412.         <textSize>12</textSize>
  413.         <textStyle>plain</textStyle>
  414.         <name>Balken</name>
  415.         <script></script>
  416.     </part>
  417.     <part>
  418.         <id>15</id>
  419.         <type>button</type>
  420.         <visible> <true /> </visible>
  421.         <reserved5> 0 </reserved5>
  422.         <reserved4> 0 </reserved4>
  423.         <reserved3> 0 </reserved3>
  424.         <reserved2> 0 </reserved2>
  425.         <reserved1> 0 </reserved1>
  426.         <enabled> <true /> </enabled>
  427.         <rect>
  428.             <left>226</left>
  429.             <top>237</top>
  430.             <right>411</right>
  431.             <bottom>252</bottom>
  432.         </rect>
  433.         <style>transparent</style>
  434.         <showName> <true /> </showName>
  435.         <highlight> <false /> </highlight>
  436.         <autoHighlight> <false /> </autoHighlight>
  437.         <sharedHighlight> <false /> </sharedHighlight>
  438.         <family>0</family>
  439.         <titleWidth>0</titleWidth>
  440.         <icon>0</icon>
  441.         <textAlign>center</textAlign>
  442.         <font>Geneva</font>
  443.         <textSize>9</textSize>
  444.         <textStyle>bold</textStyle>
  445.         <name>Shareware (US$ 5,-!)</name>
  446.         <script></script>
  447.     </part>
  448.     <content>
  449.         <layer>background</layer>
  450.         <id>1</id>
  451.         <text>Virus Warning!</text>
  452.     </content>
  453.     <content>
  454.         <layer>background</layer>
  455.         <id>6</id>
  456.         <text>ﾂｩ 1994-1995 by Matthias KahlertHaidauer Str. 79, 93073 Neutraubling, Germany</text>
  457.     </content>
  458.     <content>
  459.         <layer>background</layer>
  460.         <id>12</id>
  461.         <text>Virus Warning!Searching files started窶ｦ09.09.1995, 12:31 UhrNo infected files found!Searching files finished窶ｦ09.09.1995, 12:31 Uhr(Click me to hide me!)</text>
  462.     </content>
  463.     <name></name>
  464.     <script>on opencardlock screenrepeat with x=1 to number of bg btnsset hilite of bg btn x to falseend repeatset hilite of bg btn (short name of this cd) to trueset scroll of bg fld "Infos" to 0pass opencardend opencard----- Search/Disinfect Fileson VW_SearchDisinfect Moduslock screenset lockmessages to truepush cdanswer Modus & " a single file or a folder/volume?" with "Cancel" or ﾂｬ"File" or "Folder"global VW_VirusScript,VW_Logput "Virus Warning!" & return & return & Modus & "ing files started窶ｦ" & ﾂｬreturn & the date & ", " & the time into VW_Log2put empty into VW_Logput bg fld "Infos" of cd "Virus Script" into VW_VirusScriptif it = "File" thenanswer file Modus & " what file?" of type "STAK"put it into Dateiif Datei = empty then exit VW_SearchDisinfectif Modus = "Search"then VW_SearchFile Dateielse VW_DisinfectFile Dateielse if it = "Folder" thenput FullSFPack("Folder","STAK",Modus & " what folder/volume?") into Ordnerunlock screenunlock screenshow bg btn "Balken"lock screenif Ordner = empty then exit VW_SearchDisinfectput GetDir(Ordner,"F+","t=STAK","o=p") into Dateienif Dateien = empty then exit VW_SearchDisinfectput rect of bg btn "Balken" into theRectrepeat with x=1 to number of lines of DateienThermometer theRect,x,(number of lines of Dateien),"green"if Modus = "Search"then VW_SearchFile (line x of Dateien)else VW_DisinfectFile (line x of Dateien)end repeatelse if it = "Cancel" thenput empty into VW_Logput empty into VW_VirusScriptexit VW_SearchDisinfectend ifput empty into VW_VirusScriptif VW_Log = empty thenput VW_Log2 & return & return & "No infected files found!" ﾂｬinto VW_Logelseput VW_Log2 before VW_Logend ifput return & return & Modus & "ing files finished窶ｦ" & return & ﾂｬthe date & ", " & the time after VW_Logput return & return & "(Click me to hide me!)" after VW_Logpop cdhide bg btn "Balken"set lockmessages to falseput VW_Log into bg fld "Log"show bg fld "Log"end VW_SearchDisinfecton VW_SearchFile Dateiset the cursor to busygo stack Dateiglobal VW_VirusScript,VW_Logif script of this stack contains VW_VirusScriptthen put return & return & Datei & return & ﾂｬ"Virus 窶廴erryXMas窶 found!" after VW_Logend VW_SearchFileon VW_DisinfectFile Dateiset the cursor to busygo stack Dateiglobal VW_VirusScript,VW_Logif script of this stack contains VW_VirusScript thenput return & return & Datei & return & ﾂｬ"Virus 窶廴erryXMas窶 found!" after VW_Logput Script of this stack into Textput offset(VW_VirusScript,Text) into xput x + number of chars of VW_VirusScript - 1 into yput empty into char x to y of Textset script of this stack to Textput return & "File disinfected!" after VW_Logend ifend VW_DisinfectFileon VW_EditPrefsput SystemFolder2() & "Preferences" into PrefsPfadCreateFolder PrefsPfadput PrefsPfad & ":Matthias Kahlert ﾆ’" into PrefsPfadCreateFolder PrefsPfadput PrefsPfad & ":Matthias Kahlert Prefs" into PrefsDateiopen file PrefsDateiwrite "Matthias Kahlert Prefs" & return & ﾂｬ"ﾂｩ by Matthias Kahlert, Haidauer Straﾃ歹 79, 93073 Neutraubling, " & ﾂｬ"Germany" to file PrefsDateiclose file PrefsDateiSetType PrefsDatei,"pref"SetCreator PrefsDatei,"WILD"set the itemDelimiter to ","put ResText("PROG",9,PrefsDatei) into Textif char 1 of Text is not a number then put 0 into item 2 of Textput "2.0" into item 1 of Textadd 1 to item 2 of TextTextRes Text,"PROG",9,"Virus Warning",PrefsDatei,trueend VW_EditPrefs----- Farbiger Hintergrundon openstackVW_EditPrefsInstallColorpass openstackend openstackon closestackDisposeColorpass closestackend closestackon suspendstackDisposeColorpass suspendstackend suspendstackon resumestackInstallColorpass resumestackend resumestackon InstallColorlock screenif maxDepth() >= 8 thencolorizeHC "new","Virus Warning Hintergrund"colorizeHC "AssignToFront"go this cdend ifend InstallColoron DisposeColorlock screencolorizeHC "Dispose"end DisposeColor</script>
  465. </background>
  466.